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EDITORIAL 


Chers amis 
Que du sérieux ce mois ci, rien que du sérieux ! 


Citons en vrac un compilateur Lisp pour HP-28, un programme de calcul de 
résistance des matériaux pour HP-41, des fonctions électroniques et graphiques 
pour HP-71, et bien d’autres. 


Certains le savent déjà, le 3 Juin 1989, pendant le Consumer Electronic Show à 
Chicago, aux U.S.A. aura lieu une conférence dans le but de fêter, entre autres, 
les 10 ans de la HP-41 et le 75€ anniversaire de Hewlett Packard. Il y a fort à 
parier que si un certain constructeur a des révélations à faire, ce sera ce jour là ! 
Malheureusement, il y à très peu de chances que nous puissions participer à cette 
fête. Mais si (par hasard!), l’un d’entre vous passait dans ce secteur, nous serions 
heureux d’en être tenus au courant. 

Cela ne nous empêchera pas de fêter, de notre coté, les dix ans de la HP-41! 


Nous aimerions aussi vous parler de la (trop rare!) production de de vos articles. 
Nous voudrions d’abord insister sur la forme dont nous les recevons. Trop 
souvent, ils nous arrivent avec une présentation telle que nous mettons surement 
plus de temps à les remettre en page que leur auteur à les taper ! Suivez au 
moins les conseils de la rubrique "ah, vous ecrivez"… Pour ceux qui nous envoient 
des articles tapés sur IBM PC, Essayez de nous envoyer des disquettes 372", que 
nous pouvons traiter directement sur notre Integral PC. Le respect de ces 
quelques règles nous ferait gagner énormément de temps. 

Plus important encore, vos articles pêchent souvent par le manque d'exemples et 
vos programmes de commentaires. Des exemples parce que vous êtes surement 
la seule personne à ne pas avoir à apprendre à vous servir de votre programme. 
Des commentaires, parce que les autres voudrons sûrement savoir comment vous 
avez fait. 


Le proverbe du mois : 
“Memory Lost n’est pas mémoire perdue!" 


Le Bureau 
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SOS 


Amis utilisateurs de HP-41, je fais appel à vos 
compétences! 


Ma profession peu courante, gnomoniste 
(constructeur de cadrans solaires), m'a amené à me 
pencher sur lastronomie, la topographie, la 
construction, les bétons, dessin en perspective, ainsi 
qu'évidemment sur la programmation HP-41 et du 
BASIC. 


la HP-41 est, pour cette application, la solution "tout 
terrain" idéale. Prise d’orientation d’un site au soleil 
avec time et navigation, calcul des cadrans, des 
différents temps et calendriers, devis immédiats, etc... 
Mais la limitation de la HP-41 est, comme chacun le 
sait, la RAM disponible. Mes programmes dépassent 
900 pas, et souvent je suis limité par la taille mémoire. 


Questions : 

-Comment disposer disposer d’une plus grande 
capacité mémoire, interieure ou extérieure, 
programmable en langage utilisateur, accessible et 
portable ? 

-Un bricoleur sagace aurait-il encore à sa disposition 
les EPROMs MLEIH pour le boitier MLDL ? (ce 
qui me permettrait d'utiliser le mien) 

-Des utilisateurs auraient-ils déjà programmé la 
HP-41 sur des problèmes liés aux techniques citées 
plus haut? Je serait heureux de pouvoir échanger 
points de vue, résultats, astuces et d’être conseillé sur 
ces matières. 


Je suis aussi à la recherche de tous périphériques 
d'occasion, permettant d'étendre les possibilités de la 
HP-41, tels le lecteur de cassette, interface HP-IL 
<-> IBM PC, livrets 1 & 2 du module topographie, 
etc. Je suis déjà en possession d’un HP-41CV équipé 
d’un lecteur de cartes magnétiques, des modules 
d'extension fonction et mémoire, time, navigation, 
HP-IL, une imprimante type EPSON via une 
interface //, un port d’extension ainsi qu’un boitier 
MLDL (sans ses 2 ROM MLE1H). J’ai en plus à ma 
disposition pour ma gestion, un APPLE Ile et un 
compatible IBM XT, 


Merci d’avance de vos réponses. 


Claude Dupré 
La Plardiére 
Champgenêteux, F 
53160 BAIS 
tel: 43-37-08-30 
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COURRIER DU COEUR 


Pierre DAVID 
33, bd Saint Martin 
75003-PARIS 


Vend : 


Imprimante ThinkJet HP 2225 : 2000 FF, 
module Maths pour HP 71 : 500 FF. 


Jean REIBEL 

9 Square Victor Fleming 

92350 LE PLESSIS-ROBINSON 
Tél: (1) 46 31 46 11 


Vend : 


Pour HP-41 : module X-MEMORY 500 FF; module 
GAMES 150 FF; module ADVANTAGE 400 FF, 
Pour HP-71 : lecteur de cartes 500 FF; module 
FINANCE 500 FF; Périphérique HP-IL: interface 
vidéo 500 FF; Lecteur de cassettes 1000 FF. 


Pierre Bourgot 

2 sq castiglione 
78150 Le CHESNAY 
Tél:(1) 38 54 75 43 


Vend: 


Lecteur HP-811614A:1500 F 
Imprimante HP-82162A:1500 F 
Convertisseur 82166A:1200 F 
Le tout en excellent état. 
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UN PEU DE SPORT 


Lors des prochaines vacances, que ferez vous lorsque, 
allongé(e) sur la plage, la peau bien huilée, après 
avoir gréé votre planche à voile, bien ajusté les 
cambers afin de permettre un meilleur passage de la 
voile lors de l’'empannage et que vous vous apercevrez 
qu'au niveau du vent c’est toujours la pétole? 
Relirez-vous pour la 17ÈM€ fois, le dernier JPC? 
(comment 17 seulement?) 

Hé bien non! Nous vous proposons quelque chose à 
la saveur nouvelle. En effet nous avons découvert un 
livre... 


- Qui vaut largement la planche-à-voile ! 
- Non ce n’est pas possible !! 
- Mais si c’est possible !!! 

CRACK ! BOUM ! PAFF !!! 


Après cet aparté entre les auteurs, revenons à nos 
moutons. Ce livre nous a permis de vivre une 
merveilleuse épopée à travers l’univers du soft et du 
hard, accompagnés par Hélène* et Patricia“. Les 
auteurs de l’ouvrage, Paul Courbis et Sébastien 
Lalande, nous invitent à découvrir les secrets de la 
HP-28 (C 1BB 1CC et S 2BB) en 272 pages. Une 
premiere partie de ce livre est consacrée à la 
structure de la mémoire : le soft. Chaque objet 
manipulé par la HP y est décrit avec précision, on y 
apprend comment est codé un objet, la façon dont il 
est stocké dans la RAM. Mais ce n’est pas tout! Les 
auteurs ce sont acharnés à décortiquer, pour vous, 
heureux lecteurs, la RAM et la ROM des trois 
modèles. Ainsi la RAM est exposée en long en large 
et même circulairement (buffer du clavier). On 
découvre alors la structure de l'écran, les adresses 
utiles et inutiles (pour utiliser le clavier et l’infra- 
rouge par exemple), comment est organisée la pile et 
encore beaucoup d’autre choses... 


Muni de ces données, on peut alors se lancer dans la 
programation en assembleur en suivant les méthodes 
exposées dans le livre. Il devient alors possible de 
réaliser quelques effets surprenants tant sur le plan 
graphique que sonore et l’on peut donner libre cours 
à son imagination. 


La seconde partie du bouquin est consacrée aux 
transformations physiques de la machine. Même si les 
HP-28 sont les plus belles, on peut faire mieux. En 
effet il peut être intéressant de démonter sa machine, 
d’y ajouter une alimentation externe, de l’accélérer ou 
de la connecter à un ordinateur ou à une autre HP. 
Toutes ces opérations sont rigoureusement expliquées 
et des photos de HP-28 écartelée aide à comprendre 
les opératins à effectuer. 
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Non contents de nous livrer des tonnes de 
renseignements, les auteurs nous servent tout prêts, 
plus d’une cinquantaine de programmes destinés à 
toutes les versions de la HP-28. Ces programmes sont 
surtout des utilitaires et des programmes 
mathématiques. Les utilitaires permettent de se 
balader dans la mémoire de la machine ou encore de 
provoquer quelques effets amusants. Un programme 
nommé SPEED acélère une HP-28$, oui cela veut bien 
dire que après avoir exécuté SPEED tous vos calculs et 
tous vos programmes s’exécuterons deux fois plus vite 
(attention à l’imprimante qui ne peut alors plus 
suivre). UNPIXEL est aussi trés utile, pour effacer un 
point; mais attention, en le tapant le lecteur est 
étreint d’un doute: s’il utilise CHK (programme de 
vérification des arguments dans la pile), doit-il ne 
taper que la première chaine de codes? La réponse 
est non, le faire est courir vers l’immonde Memory Lost, 
il faut taper le PEEK et ce qui va avec. Voici un tout 
petit exemple d'utilisation de SPEED et de UNPIXEL : 


« X 1 - DUP COS R+C UNPIXEL X COS » 
STEQ SPEED DRAW 


Vous verrez se promener un ver sur l’ecran de votre 
HP (à condition d’être en mode radian, avec le PPAR 
par défaut et d’avoir tapé SPEED et UNPIXEL). Pour cet 
exemple SPEED est facultatif mais augmente 
considérablement la vitesse du petit ver. 


Les programmes mathématiques, conseillés aux 
taupins et aux étudiants en sciences, concernent 
essentiellement les polynomes, leurs matrices 
associées et le calcul rationnel. Par exemple, le 
programme de calcul rationnel permet de 
transformer n’importe quel réel en la fraction la plus 
proche. Ainsi au lieu d’avoir un  ignoble 
1,33333333333 sur l'écran, vous aurez un merveilleux 
4/3 qui ravira votre prof de maths adoré et ceci 
marche aussi bien avec les complexes (a/b+c/d*i), 
les vecteurs et matrices rééles ou complexes, et 
beaucoup plus fort les objets algebriques! Par 
exemple: 


fTANCX)! !X! 5 TAYLR 
retourne dans la pile : 
1X+,333333333333*X 3+,133333333333*X 5" 


en 35 s sans SPEED et en 17 avec (pour une HP-28S) au 
début on y croit pas mais c’est vrai! en exécutant ?2-FR, 
on obtient en peu de temps 
1X+1/3*X+2/15*X73+2/3*X 7515". 


Enfin dans le ludique on trouve le mastermind, le 
carré magique (dont il faut souligner la structure de 
groupe commutatif) et le labyrinthe dont on ne sort 


pas facilement. Nous avons failli oublier, pour les 
artistes, un programme de télécran est fourni, et pour 
les bidouilleurs un désassembleur. 


Vous saurez tout lorsque nous vous aurons dit que le 
bouquin s’appelle Voyage au centre de la HP-28C/S ct 
qu'il est édité par "La règle à calcul”. 


Laurent Chouraki (478) 
Frederic Gobin 


* Les auteurs de présent article font partie d'un groupe qui 
revendique le droit inaliénable aux HP-28 (toutes versions) d'avoir 
un prénom, au même titre que les autres êtres doués de 
raisonnement! 





LE FACTEUR EST CONSTANT 
ACTE V 


Les programmes publiés récemment (page 193 et 
265) dans le livre de Paul Courbis et Sébastien 
Lalande (Voyage au centre de la HP 28 C/S, les 
Editions de la Règle à Calcul) permettent d’étendre à 
la HP-28$ le programme "le facteur est constant" 
publié en plusieurs volets dans JPC. Le programme a 
été légèrement modifié afin d’afficher les menus de 
façon plus condensée et afin de faciliter les 
changements du format d’affichage des résultats. 


NOTE: Dans les lignes ci-dessous, les ’softkeys’ sont 
désignées: (function). 


1) S’il reste assez de mémoire, l’invalidation suivante 
n’est pas requise: Invalider les modes COMMAND, UNDO & 
LAST. 

Il est conseillé d’entrer les variables de droite à 
gauche, de bas en haut. 


Cinquième ligne du menu 


2) Dans HOME, taper: /KTOP' CRDIR, puis presser {KTOP)}. 
Ensuite: 


3) Entrer le programme 2: 
« 1 - 100 * » Z [STO] 


4) Entrer le programme Y: 
« N O SWAP »  Y [STO] 


5) Entrer le programme x: 


« 3 DISP 1 WAIT KILL » X [STO] 


6) Entrer le programme vu: 


« R DUP DEPTH PICK +STR » W [STO] 
7) Entrer le programme v: 
« % EXP Z ROT ROT »  V [STO] 


8) Entrer le programme u: 


« + SWAP +STR + q SWAP DUP INV 1 » U [STO] 
9) Entrer le programme R: 
« DEPTH 3 IF >= THEN N END DUP2 » R [STO] 


10) Entrer le programme a: 
« 
DEPTH PICK SWAP DUP 0’ STO 60 
IF FS? 
THEN DEPTH PICK 
END 
» 


Q CSTO] 


11) Entrer le programme P: 
« 
M ROLL DROP 
2M 
FOR x 
DUP p +STR 
"% "+ SWAP q -STR + M ROLLD 
NEXT 
DEPTH 
ROLL -STR DEPTH ROLLD 
KILL 


(le cas échéant, PRSTC) 


» 


P [STO] 


12) Entrer le programme 0: 
1  O [STO] 


13) Entrer le programme \: 
« M ROLLD DEPTH 2 - DROPN »  N [STO] 
13) Entrer le programme M: 

« DEPTH 1 - » M [STO] 


Quatrième ligne du menu: 


15) Entrer le programme a: 
« 2 (ou 0, ou une autre valeur) FIX » ou « STD » 
q [STO] 


16) Entrer le programme p: 


« 1 (ou2)FIX DEPTH PICK SWAP %T »  p [STO] 


17) Entrer le programme EFF: 


« 


STD W "Ç(N)/" U DEPTH PICK % * 1 + 
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SWAP * Z 1 DEPTH PICK V 
» 


EFF [STO] 


18) Entrer le programme NOM: 

« 
q W "CE)/" STD U 1 DEPTH PICK % + 
LN * EXP Z * 1 OVER V 

» 


NOM [STO] 


19) Entrer la variable B reservée au stockage de 
n'importe quel objet: 
«»  B [STO] 


20) Après avoir activé le mode hexa dans le menu 
BINARY (HEX), entrer l’assembleur: 
« 
MÉJA2ON SUWAP MO9F20N + + + 7 
« 
PATH HOME HEX "" 1 z SIZE 
FOR 1 
"#u z 1 DUP2 
1 + DUP SUB ROT ROT DUP 
SUB + + STR+ BR CHR + 2 
STEP 
!J! STO # DOOO0h J SIZE 
2 * - SYSEVAL 1 GET 1 LIST 
LIST+ DROP ’J’ PURGE 
SWAP +STR 2 OVER SIZE 1 - 
SUB STR+ 


» 


A [STO] 
Troisième ligne de menu: 


21) Entrer le programme F: 
« 
DUP IF 
THEN ‘0’ STO 
ELSE DROP O CLLCD X 
END 
» 


F C[STO] 


22) Entrer le programme %t: 
« 
DEPTH 3 
IF > 
THEN PICK DUP CLLCD 2 DISP p 
+STR " 2% + X 
END 
NP 
» 


1#%t [STO] 
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23) Entrer le programme t: 
« DEPTH PICK CLLCD X » t [STO] 


24) Entrer le programme o: 
« 1 DEPTH 2 - FOR x x ROLL NEXT »  o [STO] 
25) Entrer #, routine à double objectif: Initialisation 
de > par 0 €«#). Corbeille à papier (placer au niveau 1 
le numéro de la ligne à supprimer, puis €#)). 
« 
1 F DUP 
IF 
THEN 
M ROLL 1 - M ROLLD ROLL NEG DEPTH ROLL 
+ DEPTH ROLLD 
ELSE CLEAR O 0 
END 
» À 


"21201032" [ENTER] A [ENTER] [STO] 


26) Entrer le programme 5: 
« 
M ROLL 1 + M ROLLD DEPTH DUP PICK - 2 MOD 
IF THEN * END 
O * DUP DEPTH 
ROLL + DEPTH ROLLD DUP 
IF THEN HALT ELSE DROP END 
P 
» 


2 [STO] 
Seconde ligne du menu: 


27) Entrer le programme 1%: 
« 
DEPTH 2 
IF >= 
THEN 
R % DUP2 + ROT -STR "+! + ROT -STR + SWAP 
ELSE 
N DUP 
INV .01 - DUP INV SWAP .02 + INV 
END 
» 


11% [STO] 


28) Entrer .”. (puissance): 
«<Q”Y» 
"21D2030E2E5E2" [ENTER] A [ENTER] [STO] 


29) Entrer .u. (routine Modulo et test de divisibilité): 
« Q MOD Y » 
"21D2030E2F8E2" [ENTER] A [ENTER] [STO] 


30) Entrer le programme MUX: 

« 
STD R SWAP +STR "-CP-" + SWAP 
+STR + q DEPTH PICK ROT DUP2 


%CH SWAP ROT %CH ABS 2 +LIST 
» 


fMU% [STO] 


31) Entrer | (Bascule-Toggle pour installer Kk comme 
préfixe ou comme postfixe): 

« 60 IF FS? THEN DEG ELSE RAD END » [ENTER] 
"“21D2010C7" [ENTER] A [ENTER] [STO] C7=code pour "|" 


32) Entrer k (la constante): 
« 
DUP + z 
« 
IF 
THEN CLEAR z 
ELSE 
p 60 
IF FC? 
THEN SWAP 
END 
END 


» 


K [STO] 
Première ligne du menu: 


33) Entrer ./. (division): 
« Q / Y » [ENTER] 
"21D2030E2F2E2" [ENTER] A [ENTER] [STO] 


Entrer .*. (multiplication): 
« Q * Y » [ENTER] 
"21D2030E2A2E2" [ENTER] A [ENTER] [STO] 


35) Entrer .-. (soustraction): 
« Q - Y » [ENTER] 
"21D2030E2D2E2" [ENTER] A [ENTER] [STO] 


36) Entrer .+. (addition): 
« Q + Y » [ENTER] 
"21D2030E2B2E2" [ENTER] A [ENTER] [STO] 


37) Entrer » (Bascule-Toggle pour installer K comme 
préfixe ou comme postfixe): 

Taper «, puis presser la softkey {m}, puis CENTER]. 

m [STO] 


38) Entrer k (la constante): 
fie k [STO] 


39) Entrer KT, le programme d'installation du menu 
CUSTOM, afin de ne pas afficher les routines de "service" 
suivantes: M,N,0,P,Q,R,U,V,MU,X,Y,2. 
« 

Ckm +. .-. .*. ./. K | MUX pu. 

.". 1% 2 # o t %t F À B NOM EFF p q } 

MENU 


» 


KT [STO] 


40) Si on le désire, supprimer le contenu de À 
(Passembleur). 

L’assembleur peut aussi être conservé 
temporairement afin de créer des labels pour des 
fonctions qui stockeraient la constante k en haut de la 
pile. 


MENUS 
Initialisations 
[===sz==22sssssesesesesessssesssssss| 
1) 4 Ke  s+ - * ./. | ‘Functors' 
| | |----- | [=== | arithmétiques 
2) | K | = | MUX | .u. UP SLEA] 
[Er sresess Mark Up----------- Interêt 
(uretessnes eee eee | 
3» 4| ‘2 # o t %t | F | Portfolio 


4) | A | B |NOM EFF| p | q | 
[-L i br e-[----<->----{[-pour FIX--| 
[===ssssssssssssssssssssssssessessss| 

Exemples 

Pour les exemples, se reporter aux numéros 


précédents de PC. 

Pour changer le FIX, ‘VisiT’er le programme aq. 

Dans le programme 5%, pour changer le FIX pour 
pourcentages %T Où pour quantités, utiliser 
respectivement les programmes p et q. 


Philippe Heïlbronn (233) 


CALCUL DE DATE 
ET FONCTIONS HORLOGES 
POUR HP28 


Cet article se divise en deux parties: 
- fonctions de calculs sur des dates, 
- fonctions horloges. 


1ERE PARTIE : CALCULS SUR LES DATES 


Le but de cette partie est de fournir les équivalents 
des fonctions de calcul sur les dates du module Time 
du HP41, ou du lex DATELEX du HP71 (voir JPC 49). 
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Le format adopté pour coder une date est le format 
numérique jj.mmaaaa : par exemple, 11.021989 pour 
le 11 février 1989. 


Fonctions implémentées : 


DTADD (date add) : équivalent à DATE+ du HP-41, elle 
permet d’ajouter un nombre de jours à une date. 
Utilisation: 
Entrées : niveau 2 : datel 

niveau lin 
Sortie : niveau 1 : date2 = datel + n 


DDAYS (difference of days) : différence de jours. 
Donne le nombre de jours entre 2 dates. 
Entrées : niveau 2 : date2 

niveau 1 : datel 
Sortie : niveau 1 : n = date2-date1 


vou (day of weck) : donne le jour de la semaine 
correspondant à une date. 

Entrée : niveau 1 : date 

Sortie : niveau 1 : n = jour(date) 

Le jour de la semaine est codé comme suit : 

0 : dimanche, 1 : lundi, 2 : mardi, 3 : mercredi, 4 : 
jeudi, 5 : vendredi, 6 : samedi. 


ADO4 (alpha dow of week) : 

Semblable à DOW, mais retourne une chaine contenant 
le jour en clair. 

Entrée : niveau 1 : date 

Sortie : niveau 1 : chaine jour 

La chaine contient dimanche, Lundi, …., samedi. 


Détails de réalisation: 


Les calculs de date s'appuient sur la conversion d’une 
date en date julienne, c’est-à-dire en un nombre 
représentant le nombre de jours depuis une date 
référence. 

Ces conversions sont effectués par les routines -JUL et 
JUL+ 


-+JUL : conversion d’une date au format numérique 
jjmmaaaa en jour julian. 

entrée : niveau 1 : date (jj.mmaaaa) 

sortie : niveau 1 : jour julian 


JUL+ : conversion d’un jour julian en une date au 
format jj.mmaaaa 

entrée : niveau 1 : jour julian 

sortie : niveau 1 : date (jj.mmaaaa) 


Les formules utilisées sont tirées du livret Utilities 


pour le HP-71, simplifiées et adaptées au langage 
RPL. Ces formules sont assez complexes, mais les 
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calculs de date deviennent élémentaires avec ces deux 
procédures : 


Par exemple, DTADD est défini par : 


SHAP met la date au niveau 1 

+JUL conversion en jour julian 

+ addition du nombre de jours 
JUL+ conversion inverse : date résultat 


Traitement des erreurs : 


Le domaine de validité des dates est de 4.101582 à 
31.129999 . Le traitement des erreurs se fait au niveau 
des conversions -JUL et JUL+. JUL- teste que l'argument 
fourni est bien dans l’intervalle autorisé. +JUL utilise 
Pastuce suivante pour tester que la date jj.mmaaaa est 
valide: -JuL convertit la date en jour julian, puis 
effectue la conversion inverse, si le résultat est 
identique à la date originale, c’est que cette date est 
valide. En effet, une date invalide telle que 34.011988 
ou 29.021989 ne sera jamais produite par la routine 
JUL+ . 


J'ai rencontré une difficulté pour indiquer lerreur à 
Putilisateur: j'ai tout d’abord pensé utiliser une 
séquence du type : 

MERREUR : date incorrecte! 1 DISP ABORT 

pour afficher un message d’erreur à la ligne 1, et 
arreter l’éxécution. Malheureusement, le mot ABORT 
efface le flag système message, et l'affichage normal 
de la pile est restaurée, faisant disparaitre mon 
message. J’ai donc dû recourir à une solution moins 
élégante, qui consiste à mettre une chaine contenant 
le message d’erreur au niveau 1. J’ai fait en sorte de 
restaurer l’argument ayant provoqué lerreur au 
niveau 2. 


Les deux situations d’erreur sont : 


niveau 2 : date jj.mmaaaa 

niveau 1 : "Invalid Date” 
Cette erreur est provoquée par une date incorrecte 
telle que 12.341988 . 


niveau 2 : jour julian 
niveau 1: "Out Of Range Date" 
Cette erreur est provoquée par un jour julian 


correspondant à une date hors de lintervalle du 
04/10/1582 au 31/12/9999. 


2EME PARTIE : FONCTIONS HORLOGES 


Cette partie traite de l'implémentation des fonctions 
horloges. Ce sujet a déjà été abordé dans JPC (voir 
JPC 46, 49 et 53). Je propose ici un ensemble complet 
de fonctions, ainsi que laccès à la date, et à un 
chronomètre. 


Les formats utilisés sont ceux du module time du 
HP-41 soit: 

un nombre hh.mmsscc pour les heures, 

un nombre jj.mmaaaa pour les dates. 


Le chronomètre : 


Commencons par définir le chronomètre. L'accès se 
fait par le mot sw (stopwatch : chronomètre en 
anglais). C’est la seule définition dépendant de la 
version de votre machine. sw fournit un entier binaire 
représentant la valeur instantanée du chronomètre en 
1/8192 ème de seconde. 


Pour mesurer des intervalles de temps, on utilise le 
mot ELAPSE : 

ELAPSE prend sur la pile la valeur du chronomètre à un 
instant t, et retourne le temps écoulé depuis cet 
instant en secondes. 


La mesure d’un temps se fait en mémorisant la valeur 
du chronomètre au début du phénomène à mesurer 
avec S4, puis à calculer le temps écoulé en fournissant 
cette valeur à ELAPSE. 


Exemple : mesurer le temps d'exécution d’une 
boucle : 

su valeur du chronomètre au niveau 1 

0 100 

START NEXT n'importe quoi laissant le niveau 1 intact 
ELAPSE donne le temps écoulé 


Sur ma machine (HP-28$), j'obtiens 0,52 seconde. 
Fonctions date et heure. 


DATE retourne la date actuelle au format jj.mmaaaa. 
Sortie : niveau 1 : date jj.mmaaaa 


TIME retourne l'heure courante au format hh.mmsscec. 
sortie : niveau 1 : heure hh.mmsscc 


SETDATE permet de mettre l’horloge à la date. 
entrée : niveau 1 : date jj.mmaaaa 


SETIME permet de mettre l'horloge à l'heure. 
entrée : niveau 1 : heure Ah.mmss 


ADATE convertit une date au format numérique 


j.mmaaaa en une chaine au format j j/mm/aaaa 
entrée : niveau 1 : date jj.mmaaaa 
sortie : niveau 1 : chaine j j/mm/aaaa 


ATIME convertit une heure au format numérique 
hh.mmss en une chaine au format hh:mm:ss 

entrée : niveau 1 : heure hh.mmss 

sortie : niveau 1 : chaine hh:mm:ss 


Détails de réalisation : 


Pour implémenter la date, il est nécessaire d’avoir 
entré les routines +JUL et JuL+ définies dans la 127€ 
partie. 


Il faut définir une variable EXACT : 
O ‘EXACT’ STO 


Les fonctions TIME et DATE font appel à une fonction 
DTTIM qui utilise Sw et la valeur de EXACT pour 
retourner: 

niveau 2 : secondes depuis minuit 

niveau 1 : jour julian 


Réciproquement, SETDATE et SETIME font appel à SETDT 
qui demande : 

niveau 2 : heure au format Ah.mmss 

niveau 1 : date au format jj.mmaaaa 

et utilise ces informations pour ajuster la valeur de 
EXACT. 


Exemple : 
Remise à l’heurc et à la date le 21/12/88 à 22:52:25 
22.5225 21.121988 SETDT 


Application : affichage d’une horloge. 


Le programme cLock affiche la date et lheure. 
L’appui sur une touche quelconque arrête le 
programme. 


Références : 

- Manuel du module Time HP41 

- HP71 Users’ Library Solutions : Utilities 

- JPC 46 p.7, IPC 49 p.6, JPC 53 p.6 : horloge pour 
HP-28 

- JPC 49 p.24 : Lex DATELEX de calcul sur dates pour 
HP-71. 


Listings 1ère partie : 


JUL 
« + x 
« x 
IF DUP 2299150 < 
SWAP 5373484 > OR 
THEN x 
“Out Of Range Date"! 
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ABORT 

END x 68569 + 
36524.25 MOD IP DUP 
1 + 365.25025 / IP 
SWAP OVER 365.25 * 
IP - DUP 31 + 30.59 
/ IP SWAP 31 + OVER 
30.59 * IP - ROT 3 
PICK 11 / IP + x 
68569 + 36524.25 / 
IP 49 - 100 * + ROT 
DUP 

IF 11< 

THEN 2 + 

ELSE 10 - 

END 100 / SWAP 
1000000 / + + 
» 


» 


+JUL 
« + X 
« x 100 * FP 10000 
* x FP 100 * IP 
IF DUP 3 < 
THEN 12 + SWAP 1 
- SWAP 
END OVER 365.25 
X* IP SWAP 1 + 
30.6001 * IP + x IP 
+ 1720995 + SWAP DUP 
400 / IP SWAP 100 / 
IP - 2 + + DUP JUL+ 
x 
IF <> 
THEN DROP x 
“Minvalid Date! ABORT 
END 
» 


» 


Note : le signe <> représente le symbole ‘différent 
de’ (touche tshifti t=1) du HP-28. 


DOW 
« +JUL 1 + 7 MOD » 


ADOW 

« DOW1+€ 
“dimanche! "Lundi! 
mardi" "mercredi! 
“jeudi! "vendredi! 
samedi" } SWAP GET » 
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DDAYS 
« JUL SWAP JUL SWAP - » 


DTADD 
«  SWAP JUL + JUL-+ » 


Listings 2ème partie : 


su 
Selon la version de la machine : 

HP28C 1BB : « #123E SYSEVAL » (hex) 
HP28C 1CC : « #1266 SYSEVAL » (hex) 
HP28S 2BB : « #11CAh SYSEVAL » 


ELAPSE 
« SW SWAP - B-R 8192 / » 


Création de la variable EXACT 
O ’EXACT' STO 


DTTIM 
« SW EXACT - 
# 2A300000h DUP2 / 
DUP ROT * ROT SWAP - 
B+R 81.92 / IP 100 / 
SUAP B-R 


» 


SETDT 

« SW ROT ROT -+JUL 24 
* SWAP HMS+ + 3600 * 
8192 * - ’EXACT' STO 


» 


SETDATE 
« TIME SWAP SETDT » 


SETIME 
« DATE SETDT » 


DATE 
«  DTTIM SWAP DROP JUL-+ » 


TIME 
«  DTTIM DROP 3600 / HMS » 


ADATE 
« + x 
© XX. IP STR M/NT+ 
x FP 100 * IP +STR + 
M/ + x 100 * FP 
10000 * IP +STR + 


ATIME 
& EX 


« x IP -STR 58 CHR 


+ x FP 100 * IP -+STR 
+ 58 CHR + x 100 * 
FP 100 * IP -+STR + 


» 


CLOCK 

«  RCLF STD CLLCD 
DATE DUP ADOU 1! 1 + 
SWAP ADATE + 1 DISP 
DO TIME ATIME 2 
DISP .65 WAIT 
UNTIL KEY 
END DROP STOF 


» 


Jean François Garnier (242) 





CRWTH-LISP 3.2 


NDLR: Cet article nous est parvenu par le réseau Unix (merci 
Pierre!). Comme désiré par l'auteur, nous l'avons traduit tel quel, 
sans rien ajouter ni retrancher. Vous pouvez cependant relire 
l’article de Serge Vaudenay dans JPC 54. 


Cwrth-Lisp 3.2 
Un compilateur Lisp pour HP-28S 
par Olle Gallmo (Crwth) 


Septembre 1988 


Préface (Changements depuis la version 3.1) 


DEFMAC a été ajouté. Vous pouvez maintenant définir 
des macros en Crwth-Lisp 


La bogue dans con a été corrigée. En Cwrth-Lisp 3.1, 
on ne pouvais pas avoir une séquence d'appels de 
fonctions dans la partie conséquence d’une cono. 


COND ne retourne rien si aucun des tests est vrai. 
Crwth-Lisp 3.1 renvoyait NIL. La raison pour laquelle 
Crwth-Lisp 3.1 faisait ceci était que je voulais que 
COND retourne toujours quelque chose, mais je ne peut 
pas être sûr de ceci quand ça peut appeler une 
fonction HP-28 qui ne retourne rien. 


La partie HP-28C a été retirée du manuel, depuis que 
le compilateur occupe environ 1.4Kb, il n’aurait plus 
aucun interet sur cette version. 


1. Introduction 


Le but que je m'était fixé était de créer un langage 
Lisp pour le HP-28. Je le voulais aussi compact et 
efficace que possible pour qu’il soit plus qu’un simple 
jouet. 


Premièrement j'ai fait un petit interpréteur avec 
lequel je peux appeler la plupart des fonctions 
internes du HP-28 comme des expressions Lisp 
(L-expr), mais j'ai vite réalisé qu’un compilateur 
serait plus facile à écrire, et bien sûr plus efficace ! 
J'en suis arrivé à un compilateur qui me donne un 
contrôle à peu près total du HP-28 et qui produit un 
code HP-28 à peu près optimal. 


2. Description 


Crwth-Lisp diffère un peu des Lisps conventionnels. 
Les différences principales sont la syntaxe, la 
représentation des listes et les "truthvalues". 


Une liste est un équivalent des listes HP-28, c’est à 
dire une liste est notée par des accolades et il n’y a ni 
guillemets ni délimiteurs. 


NIL et ©) ne sont pas équivalents ! 
O est une liste vide mais non une "truthvalue". 


NIL est une "truthvalue", équivalente au 0 (zéro) du 
HP-28, et non la liste vide. 


lPatome T est compilé en 1 (un) du HP-28. 


Jai choisi cette représentation de "truthvalue" parce 
que je veux rendre facile l’utilisation des prédicats du 
HP-28 à partir du Lisp, et vice versa, sans avoir à 
effectuer de conversion entre les differentes des 
"truthvalues". 


Le HP-28 crie Syntax Error si vous tentez de placer 
sur la pile une liste contenant un atome dans le menu 
BRANCH. Il n’est pas possible d'appeler cette fonction 
HP-28 à partir du Crwth-Lisp. 


Le compilateur est très petit. Il doit seulement 
connaitre quelques formes spéciales. Il n’est pas 
nécessaire de définir FIRST, REST, CONCAT, et tout ce qui 
peut fait en Crwth-Lisp par l’appel des fonctions 
internes du HP-28. 
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les formes spéciales actuellement définies sont: QUOTE, 
DEFUN, DEFMAC, LET @t COND. 


3. Le compilateur 


LISP - Compile une L-expr en un bloc programme, et 
l’évalue. 

COMP - Compile une L-expr 
d'instructions HP-28. 

LIST - Compile une liste. 

CATOM - Compile un atome. 

CFUN - Compile un appel de fonction. 
csea - Compile une séquence d’appel de fonctions. 
spa - Compile une forme spéciale QUOTE. 

SPDEF - Compile une forme spéciale DEFUN. 

SPMAC - Compile une forme spéciale DEFMAC. 

CDEF - Compile DEFUN ou DEFMAC sans stocker le 
résultat. 

SPLET - Compile une forme spéciale LET. 

SPCOND - Compile une forme spéciale CON». 

SPA - Une liste contenant les noms Lisp des formes 
spéciales. 

sp8 - Une liste contenant la fonction compilateur qui 
compile une forme spéciale. 

MACA - Une liste contenant les noms des macros. 

MACB - Une liste contenant les définitions des macros. 
->PROG - Place les délimiteurs de blocs programme 
autour d’une chaine de code HP-28. 

REST - Retourne la queue d’une liste. 


en une chaine 


LISP est la seule fonction que vous avez besoin de 
connaitre. Elle prend une L-expr comme argument. Si 
la L-expr est une DEFUN, la fonction sera compilée en 
code HP-28 et stockée dans une variable. Si la L-expr 
est une DEFMAC, la fonction sera compilée et stockée 
dans les variables MACA et MACB (voir section 6). Si la 
L-expr est autre chose, Crwth-Lisp agira comme un 
interpréteur, c’est à dire qu’il compilera la L-expr en 
code HP-28 et l’évaluera immédiatement. 


4. Factorielle -- Un exemple 

Placer la définition d’une factorielle sur la pile. 

{DEFUN FAC €X} 

{COND £{== X 0} 1} 
CT €* X CFAC €- X 133333) 

Maintenant appeler Lisp. Après un moment, FAC 
apparait comme une nouvelle variable dans le menu, 
et Lisp retourne 1 (qui est identique à T, vous vous 
rapellez ?). 
Visitons FAC pour voir à quoi il ressemble. 

« -> X 


« 


IF X O0 == THEN 
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1 
ELSE 
X X 1 - FAC * 
END 
» 


» 


Si vous écrivez une factorielle en code HP-28, vous ne 
voudrez probablement pas nommer l'argument. Vous 
préférerez opérer directement sur la pile (au moins je 
le pense). 

Une chose en commun dans toutes les fonctions 
Crwth-Lisp est qu’elles prennent toujours les 
arguments dont elles ont besoin sur la pile, et les 
stockent dans des variables locales, au lieu d’opérer 
directement sur la pile (bien qu’il soit possible 
d'opérer sur la pile en Crwth-lisp, c’est ce que 
j'appelle de la programation sale). 


Maintenant, si vous voulez calculer 5!, vous pouvez le 
faire de deux façons: 


-Comme fonction HP-28, en plaçant 5 sur la pile et 
presser FAC. 

-Comme fonction Crwth-Lisp, en placant €FAC 53 sur 
la pile et presser Lisp. 


la deuxième méthode prendra un peu plus de temps, 
{FAC 5} étant compilé en code HP-28 avant exécution. 


5. Variables locales 


Vous povez créer des variables locales en Crwth-Lisp 
avec la forme spéciale LET. Elles agissent comme avec 
le Common-Lisp LET. 


Ex: 
{DEFUN FOO {X} 
{LET {CA 5} ; A et B sont des variables Locales. 
{B 42}) 
{* {+ X B} A})} 


Le code compilé utilise les moyens de la HP-28 pour 
créer les variables locales: 


« -> X 
«5 42 -> AB 
«XB+A* 


» 
» 
6. Macros 
L'égalité est notée ’== en code HP-28, mais en 
Crwth-Lisp vous voudrez peut être l'appeler ’E®. 


Vous pouvez bien sûr définir EQ avec DEFUN comme 
ceci: 


{DEFUN EQ €X Y} {== X Y}} 


mais ceci fera un code HP-28 plus lent si vous utilisez 
beaucoup Ea et quand vous aurez à déplacer votre 
super-programme vous aurez à emmener votre petite 
définition avec vous, ou il la ne trouvera pas quand EQ 
sera appelée. 


Définissons plutot Ea comme une macro (avec 
DEFMAC): 


{DEFMAC EQ {X Y} {== X Y}} 


EQ ne sera pas stockée comme une fonction, mais 
comme une macro. Le nom EQ sera ajouté à la liste 
MACA, et le code compilé sera ajouté comme une 
chaine à la liste MAC. 


Maintenant, quand vous compilerez un programme 
qui appele Eo, l’appel de fonction sera substitué par le 
code présent dans la liste MACB. 


Mauvais conseil : vous pouvez duper le compilateur et 
définir EQ comme {(DEFMAC EQ €} €==)}, ce qui inhibe le 
nom des paramètres. 


De trés courtes fonctions, ou du code HP-28 que vous 
voudrez appeler quelque part dans Crwth-Lisp, 
devraient plutot être définies comme macros. 


Si vous définissez une macro dans le même répertoire 
que le compilateur, les listes MACA et MAcB du 
compilateur seront élargies. Le seul moyen de retirer 
une définition de macro serait d'éditer les listes MACA 
et MAC8. Mais si vous définissez les macros dans un 
sous-répertoire, les nouvelles listes MACA et MACB seront 
stockées dans le sous répertoire. Alors vous pourrez 
les purger quand vous voudrez retirer les macros, les 
listes globales MACA et MACB ne seront pas touchées 
dans le répertoire du compilateur. 


Attention: Ne purgez pas les listes MACA et MACB du 
répertoire du compilateur, il en a besoin! 


7. Commentaires 


C'est une bonne idée de créer vos programmes 
Crwth-Lisp dans un sous-répertoire du compilateur, 
vous n’endomagerez pas accidentellement votre 
compilateur. J'ai créé un répertoire Lisp pour le 
compilateur qui a un sous-répertoire SRC et un 
sous-répertoire BIN. 


Si une fonction Crwth-Lisp appelle une procédure 
HP-28 qui ne retourne rien (DISP par exemple), le 
Crwth-Lisp ne retournera rien. 


Souvenez vous de traiter NIL comme une "truthvalue" 
et une "truthvalue" seulement ! 


Ceci est un avant-propos, non un manuel complet. 


Crwth (prononcez ?’croth’) est une ancienne lyre 
celtique 


8. Programme 
Bon, et maintenant : Crwth-Lisp 3.2 ! 


L'impact que Crwth-Lisp 3.1 a produit sur le réseau 
est allé au delà de mes rêves les plus fous ! 


Suggestions, "bugs-reports", insultes, lettres d'amour 
sont les bienvenues, (bien que j'espere ne pas recevoir 
de "bug-reports" !), mais doivent être écrites en 
Anglais (ma connaissance du français est NIL (la 
“truthvalue" and la liste vide ! )). 


Les changements effectués depuis Crwth-Lisp 3.1 sont 
listés dans la préface du manuel. 


Crwth 


; Cruth-Lisp 3.2 
; A Lisp Compiler for the HP28S 
; by Olle Gallmo (Cruth) 1988 


LISP ( L-expr --- Value ) ; Compile une L-expr 
en un bloc programme 
« COMP PROG STR+ EVAL et l’évalue 


» 


COMP ( L-expr --- String )  ; Compile une L-expr 
en une chaine 


« IF DUP TYPE 5 SAME THEN d'instructions HP-28 


CLIST : Listes 
ELSE 
IF DUP TYPE 6 SAME THEN ; Atomes 
CATOM 
ELSE 


IF DUP TYPE 2 SAME THEN ; Chaines 


34 CHR SWAP OVER + + ; Une chaine dans une 


ELSE chaine! 
+STR ; Autres 
END 
END 
END 
ON + 
» 
; 
CLIST € List --- String ) ; Compile une Liste 
« IF DUP {} SAME THEN ;Une liste vide compilée 
DROP 1"€}" dans elle même 
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ELSE 
DUP REST SWAP 1 GET 


IF SPA OVER POS THEN 


SPB SPA ROT POS GET EVAL 


ELSE 
CFUN 
END 
END 


CATOM ( Atom --- String ) 
« IF MACA OVER POS DUP THEN 


SWAP DROP MACB SWAP GET 


ELSE 


DROP -STR 2 OVER SIZE 1 


’ 


‘ 


‘ 


=. 


; Prend la tête et La 


queue 


; Si La fonction est 


une forme spéciale 

; compile une forme 
spéciale 
Sinon compile un 
appel de fonction 


normal 


; Compile un atome 
; Si l'atome est défini 


comme une macro 
prend la chaine 
correspondante 
SUB ; Sinon 


END convertit en chaine 
» et efface Les"! 1" 
CFUN ( Arglist Functor --- String ) ; Compile 
un appel de fonctions 
« COMP SWAP Compile La fonction 


IF DUP SIZE THEN 


CSEQ SWAP + 
ELSE 

DROP 
END 


CSEQ € Arglist --- String ) 


« "1 1 3 PICK SIZE FOR i 
OVER i GET COMP + 
NEXT 
SWAP DROP 


» 


SPQ € Arglist --- String ) 


« 1 GET -STR 


» 


SPDEF ( Arglist --- String ) 


« DUP CDEF PROG STR+ 
SWAP 1 GET STO "11 


» 
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Si La fonction a 

des arguments 

Les compiler en premier 
et ajoute Le fonctor 
Sinon retourne juste 

Le fonctor 


Compile une séquence 
d'appels de fonctions 
(pour l'instant Le 
corps d’un DEFUN, LET 
ou COND) 


Compile La forme 
spéciale QUOTE 


; Compile La forme 


spéciale DEFUN 
Compile La définition 
Stocke dans une 
variable 


SPMAC € Arglist --- String ) 


« DUP CDEF MACB + ‘MACB' 


1 


» 


CDEF 


STO 


GET MACA + ’MACA' 


CArglist --- String ) 


« DUP 3 OVER SIZE SUB CSEQ 
SWAP 2 GET 


IF DUP SIZE THEN 


CSEQ !+ !! SWAP + 


SAP PROG + 


ELSE 


DROP 


END 


SPLET ( Arglist --- String ) 


« DUP REST CSEQ -PROG 
SWAP 1 GET 
"nu 1 3 PICK SIZE FOR i 


OVER i GET 2 GET COMP + 


NEXT 


CERTES 


1 


3 PICK SIZE FOR i 


OVER i GET 1 GET COMP + 


NEXT 
SWAP DROP SWAP + 


» 


, 


STO “1 " 


‘ 


SPCOND € Arglist --- String ); 


« IF 


DUP SIZE 1 SAME THEN 
1 GET DUP 1 GET COMP 
IF DUP "1 " SAME THEN 
DROP REST CSEQ 
ELSE 
CLP-MSSHNAP +" ÉTNEN 'Cr 


’ 


LL 
, 
, 
* 


Compile une forme 
spéciale DEFMAC 
Compile La 
définition dans MACB 
; et stocke le nom de 
la macro dans MACA 


Compile une définition 
(DEFUN or DEFMAC) 
Compile Le corps 
Prends La liste de 
paramètres 

Si La fonction prend 
des arguments 

crée leurs variables 
locales 

et ajoute le 

corps compilé 

Sinon 

laisse juste Le 
corps compilé 


Compile La forme 
spéciale 

Compile Le corps 

Prend les déclarations 
Compile Les valeurs 
des variables locales 


Crée le code HP-28 
correspondant 
variables locales 


et ajoute Le corps 
compi Lé 


Compile La forme 
spéciale COND 
If only one test Left 


SI c'est un ‘else’ 
compile seulement 
Sinon 
Crée un IF-THEN-END 


SWAP REST CSEQ + "END " + 


END 


ELSE 


MIF " OVER 1 GET 1 GET COMP + ; 


UTHEN + 
OVER 1 GET REST CSEQ + 
MELSE " + 


SWAP REST SPCOND + 
MEND " + 


Sinon 
Crée un 
IF-THEN-ELSE - SPCOND -END 


END 


SPA ; Liste des formes 
€ QUOTE DEFUN DEFMAC LET COND } spéciales 


SPB ; Liste des mots 
compilants correspondants 
{€ SPQ SPDEF SPMAC SPLET SPCOND } 


‘ 


MACA ; Liste des macros 
€ T NIL } 
MACB ; Liste des chaines 
€ “in nu0n} correspondantes 
+PROG ( String --- String ) ; Place Les delimiteurs 
«Me M SWAP + My 1 + de programme des deux 
» cotés d'une chaine de 
code HP-28 

REST ; Prend la queue d’une 
« 2 OVER SIZE SUB liste 
» 

Olle Gallmo (Crwth) 

Skyttevagen 68 
181 46 LINDINGO 
Suède 


Email: crwth@kuling. UU.SE 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Vous pouvez taper vos articles sur 
IBM PC, mais dans ce cas transmettez les nous sur disquette 3/2". Soyez sans 
crainte, nous vous retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors ct alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"?" centre un titre, par exemple : 
"TITRE 


"\"(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères RomanS. Les 
possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ’fW', CHR$(197); (é) 
DEF KEY ’fE’, CHR$(193); (é) 
DEF KEY ’fR', CHR$(201); (è) 
DEF KEY ’fY’, CHR$(203); (ù) 
DEF KEY ’fU’, CHR$(195); çûü) 
DEF KEY ‘fl’, CHR$(209); (i) 
DEF KEY ’f0’, CHR#(194); (6) 
DEF KEY ’f/!, CHR$S(92); (\) 
DEF KEY ’fA’, CHR$(192); (à) 
DEF KEY ‘fS', CHR$(200): (à) 
DEF KEY ’fD', CHR$(205); (ë) 
DEF KEY ’fJ'’, CHR$(207); çü) 
DEF KEY ’fK', CHR$(221); ci) 
DEF KEY ’f*!, CHR$(124); Ch) 


DEF KEY ’fC’, CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s'offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 6 mai 1989 
Samedi 3 juin 1989 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 
- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


Vous pouvez aussi bénéficier de la Programmathèque HP-71, regroupant tous les Lex et programmes pour 
HP-71 et HP-75 parus à ce jour dans /PC. Joindre 3 disquettes 3/2" à votre reglement. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





Nom : 

Prénon : 

No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 HE 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
Actualisation Eprom x 150 FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
om RAR SR ET AS SRE RETRO RE  RRBEl 
Prénom |_|_|_1_1_1_1_1_1_1_1_1_1_1_1_1_1_1 Date de naissance |_[_1/|_|_1/1_1_| 
D A ER 1 OA 2 LE 1 A ON A A Pr D NN 4 0 NE 
FO AR SA PLEASE ESP ES pa CTP PES FOIS EL 
EE D JA 1 AA 1 A 6 A ER VE AT A 
EEE RÉ RÉAL 
D CEE A D AN SA A ON 2 PT 1 DO 
ÉAERAELE ATOS ETES 


Profession 
Intérêts 











Matériel HP en votre possession 





Autre matériel informatique 





Comment avez-vous connu PPC Paris ? 





Que recherchez-vous au sein de PPC Paris ? 











La Loi No 78-17 du 6 janvier 1978 relative à l’informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. AU mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d’autres personnes ou 
organismes) pour publication dans Le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_[/1_1_1/191_1 | 
Signature, précédée de La mention "Lu et Approuvé' 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l'ordre de "PPC Paris" par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d’Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


HP41 


A. Rottman La méthode de Hahn 18 
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LA METHODE DE HAHN 


En 1946, M. L. Hahn a publié la circulaire Z, No 16 
(Institut Technique du Bâtiment et des Travaux 
Publics } ayant le titre Détermination des contraintes 
dans un massif de fondation rectangulaire soumis à des 
charges excentrées. 


Avant de présenter le programme HP-41, pour 
utiliser la méthode de Hahn, on commence par une 
courte introduction concernant la procédure (fig.1 
a,b,c). Quand un massif de fondation de type dalle est 
soumis a des charges excentrées on distingue trois cas 
définis par la position de l'axe neutre (DE sur la fig.1) 
qui sépare la zone tendue de celle comprimée 
(hachurée sur la fig.1). Suivant que la charge est 
localisée dans la zone I ou IT ou IT , l’axe neutre 
découpe une Zone comprimée de contour 
triangulaire, trapézoîdale ou pentagonale (fig. 2 et 1). 
Dans la zone comprimée la dalle développe des 
pressions spécifiques variables d’un point à un autre. 
Ces pressions qui s’annulent sur l’axe neutre forment, 
si celles sont représentées graphiquement 
perpendiculairement au plan de la section, une 
pyramide des sollicitations qui doivent équilibrer la 
force appliquée. 


Pour obtenir les relations capables de nous fournir la 
solution on utilise, pour chacun des trois cas suscités, 
l’equivalece de l’effort appliqué avec la résultante des 
pressions spécifiques et la coincidence du centre de 
gravité des pressions spécifiques avec le point 
d'application de l'effort appliqué. 


Considérons l’exemple de Particle de Hahn: une dalle 
700x350 cmxcm et une force appliquée P=1482 t. Le 
programme présenté ne traite pas la Zone 1, parce 
que pour cette zone la solution est immédiate. Si Rb 
est la pression maximale qui correspond au sommet B 
de la pyramide et b’ et h’ sont les coordonnées du 
point d'application de la force par rapport aux cotés 
de la section, alors on a Rb=3P/(8b’h’). Avec b’=66 
cm et h’=87 cm, alors Rb=96.8 kg/cm2. Le deuxième 
cas ou l’axe neutre découpe un quadrilatère est plus 
compliqué. La position de la force appliqué est 
donnée par une abscisse x0, par rapport à l’axe de 
symétrie verticale de la dalle, et une ordonnée h’, par 
rapport au coté supérieur. On a pour l’exemple de 
Hahn x0=23 cm et h°=150 cm. La position de l’axe 
neutre est déterminée par a et 8, (deux parametres) et 
la pression maximale au coin B de la section 
Rb=)P/(bh”) (h'=ah et h"”=fh). L’étiquette À du 
programme calcule et affiche a, 8 et À en fonction de 
£=x0/b=23/350=.0657 (sTo 01), c’est à dire d’abord 
a=2.339; B=3.507; \=.81 et ensuite, avec P en (sTo 9), 
h’ en (sto 21) et b en (sTo 15) on détermine Rb. Les 
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valeurs correspondantes de l’exemple de Hahn sont 
respectivement 2.3392; 3.5066; 0.8101 et 229 t/m2. 


On a h"=2.339*150-351 cm et h"=3.506*150 = 526 
cm. 


On passe maintenant au troisième cas qui est le plus 
compliqué. Hahn a résolu ce cas en utilisant des 
abbaques. Le programme qui suit est basé sur un 
autre algorithme. Considérons comme point de 
départ les relations utilisées par Hahn (13,18,19) qui 
sont les suivantes: 


€=.25(25-2a252+a362)/n 
n=.25(2a-2a252 + a253)/n 


où n= 262-608 + 3(a +5) 
ct u=6(ax+65-a5)/n 


(On a noté avec € et n les valeurs denomées ’csi’ et 
’éta’) 


Les valeurs données sont ’esi et ’éta’ et les valeurs 
recherchées sont « et 6. Une fois ces valeurs connues 
on obtient directement x. On considère qu’on a deux 
relations de la forme: £=f(a,5) et n=#(a,5). On peut 
écrire f(a+k,6+h)=f(a,5)+kP /a+hP/6 (ou 
P/a=a8f/3a) et #(a+k,5+h)=#(a,65) +kg’/a+h#’/6. 

En considérant connus a et 8 on peut déterminer par 
itérations ’esi(i), ’eta’(i) et ensuite k et h qui 
constituent de valeurs permettant d’obtenir un a et & 
améliorés. La procédure itérative s'arrête quand 
’esi(i) et ’eta’(i) coincident pratiquement avec les 
valeurs données ’esr et ’eta’. 


L'organisation du programme est la suivante: 


L’étiquette € calcule ’csi(i) et ’eta’(i) pour a en (sto 
2) et 6 en (STo 3). 

A lPétiquette D on calcule k et h; le programme place 
’csP en (STO 20) ,'eta’ en (sTo 21), ’csi’(i) en (sto 10), 
’eta’(i) en (sro 11). Les derivées partielles de f et 4 
sont en (STO 23,24,25,26) et k et h en (sTo 18,19). 
Comme labbaque Ibis de Hahn le montre a et & 
sont des valeurs plus petites que 1; en conséquence 
toute valeur plus petite que 1 peut être utilisée. 
L’appendice montre les resultats obtenus de 
l'étiquette © ,qui s'exécute en même temps que D; 
d’abord avec les valeurs initiales a=.2 et 5=.8 et après 
avec a=.2 et 8=.2. Les resultats sont les mêmes dans 
les deux cas et coincident avec ceux de Hahn; 


On a: 
dans les registres 2 et 3 respectivement: a=.2527 


(Hahn .253) et 5=.6938 (Hahn 694) et avec ces 
valeurs létiquette 8 permet de calculer u=2.5447 


(Hahn 2.53). Si on exécute maintenant l'étiquette E on 
obtient les différences (erreurs d’approximations). 


Enfin si on introduit dans les registres 9,15,16-P,b,h, 
alors l'étiquette F imprime succesivement la pression 
maximale, les pressions aux sommets c et F le volume 
de la pyramide des sollicitations (qui égale l'effort 
appliqué). La dernière valeur imprimée est la 
pression moyenne. 


APPENDICE 


Zone 2 
(D) Aa° + Ba+C= 0 
où A= e(1+467 ) (sTo 02) 

B= 1262-46 +1 (STO 03) 

C=12€-3 (sto sl 
donc a=[- B+SORT(BZ-4AC)]/2A (so 05) 
et 
(IT) 8=(2a+ 16e males 4(1+a£)] (STo 06) 
(HD) 1=68/(8 +ap+a2) ) (STO 07) 
Les formules I et II sont celles de HAHN (page 3) la 
formule III est equivalente a (8). 


Zone 3 

Les resultats des itérations quand on met .2 et 8 en 
STo 2 et 3 on a les valeurs initiales ’csi=.05604 
’eta’= 0560 et les valeurs finales sont ’csi =.18341 et 
’eta’ = 06397 et a=.2527 et 8 =.6939; B donne 1 =2.5448 
et quand a=6=.2 initialement on a ’esi =’eta’=.1032 
et en final ’csi =0.1834 et ’eta’=.063% il résulte 
a=.2527, B=.6938 et u=2.5447. 


L’exécution à l'étiquette F donne Rmax=15.3 kg/cm?, 
Rmin=1.54 et Rf=10.24; V=1473 t et Rmoy=6.63 
kg/cm2 


Aurel Rottman (289) 


Programme "“HAHN411 
01*LBL 00 
O2*LBL "HAHN41'" 


03*LBL A 

MPOUR MIU=1"! ARCL 01 AVIEW CLA RCL 01 X°2 4 * 1 + RCL 
01 * STO 02 RCL 01 X°2 12 * RCL 01 4 * - 1 + STO 03 
RCL 01 12 * 3 - STO 04 RCL 03 X°2 RCL 02 RCL 04 * 4 
* - SORT RCL 03 - 2 / RCL 02 / STO 05 RCL 05 
MALPHA=" ARCL 05 AVIEW RCL 05 2 * RCL 01 1/X + 4 - 
RCL 05 RCL 01 * 1 + 4 * CHS RCL 01 1/X + / RCL 05 * 
STO 06 "BETA=" ARCL 06 AVIEW RCL 06 6 * RCL 06 X°2 
RCL 05 X*2 + RCL 06 RCL 05 * + / STO 07 "LAMDA=" 


ARCL 07 AVIEW CLA RCL 09 RCL 07 * RCL 15 / RCL 21 / 
MRb=" ARCL X AVIEW STOP 


109*LBL B 


SF 12 RCL 02 RCL 03 + RCL 02 RCL 03 * - 6 * RCL 02 
RCL 03 * X”°2 RCL 02 RCL 03 * 6 * - RCL 02 RCL 03 + 3 
* + / STO 08 "MU=" ARCL 08 AVIEW CLA STOP 


143*LBL C 


RCL 02 RCL 03 * ENTER” X°2 X<>Y 2 * CHS RCL 03 + RCL 
02 + 3 * + STO 04 3 STO 06 2 STO 07 SF 01 


166*LBL !SIMU'“ 


RCL IND 06 2 * RCL 03 RCL 02 * X°2 2 * - RCL 02 RCL 
03 * X°2 RCL IND 07 * + ,25 * RCL 04 / FC? 01 RTN 
STO 10 "CSI=" ARCL X AVIEW 2 STO 06 3 STO 07 CF 01 
XEQ "SIMU'! STO 11 "ETA=!" ARCL X AVIEW 


204*LBL D 

3 RCL 02 X°2 * RCL 03 X°2 * & RCL 02 * RCL 03 X°2 * 
- 2 RCL 02 * RCL 03 X°2 * 6 RCL 03 * - 3 + STO 28 
RCL 10 * - RCL 04 / ,25 * STO 23 2 RCL 02 3 Y°X * 
RCL 03°" 4 :RCL 103 * RCL 02:X72 % - 24 2-RCL 03 * 
RCL 02 X°2 * 6 RCL 02 * - 3 + STO 29 RCL 10 * - RCL 
04 / ,25 * STO 24 2 RCL 02 * RCL 03 3 Y”X * 2 + 4 
RCL 02 * RCL 03 X°2 * - RCL 28 RCL 11 * - RCL 04 
/ ,25 * STO 25 RCL 03 X°2 RCL 02 X°2 * 3 * 4 RCL 02 
X72 * RCL 03 * - RCL 29 RCL 11 * - RCL 04 / ,25 * 
STO 26 RCL 23 * RCL 25 RCL 24 * - STO 27 RCL 20 RCL 
10 - RCL 26 * RCL 21 RCL 11 - RCL 24 * - RCL 27 / 
STO 18 PRX RCL 20 RCL 10 - RCL 25 * RCL 21 RCL 11 - 
RCL 23 * - RCL 27 CHS / STO 19 PRX RCL 20 RCL 10 - 
ABS ,0001 X<=Y? GTO 05 RCL 21 RCL 11 - ABS ,0001 
X<=Y? GTO 05 STOP 


378*LBL 05 
RCL 18 ST+ 02 RCL 19 ST+ 03 GTO C 


384*LBL E 

RCL 18 RCL 23 * RCL 19 RCL 24 * + PRX RCL 20 RCL 10 
- PRX RCL 18 RCL 25 * RCL 19 RCL 26 * + PRX RCL 21 
RCL 11 - PRX STOP 


410*LBL F 

RCL 09 RCL 15 / RCL 16 / RCL 11 * STO 04 "Rb=!"! ARCL 
04 AVIEW RCL 02 RCL 03 + RCL 02 RCL 03 * - STO 29 1 
RCL 03 - RCL 02 * STO 17 RCL 29 / RCL 04 * STO 10 
MRc=" ARCL 10 AVIEW 1 RCL 02 - RCL 03 * STO 18 RCL 
29 / RCL 04 * STO 13 M"Rf=" ARCL 13 AVIEW RCL 15 RCL 
03 / ST* 17 RCL 16 RCL 02 / ST* 18 RCL 17 RCL 15 + 
RCL 18 RCL 16 + * RCL 04 * STO 19 1 RCL 03 - RCL 16 
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* RCL 17 * RCL 10 * ST- 19 1 RCL 02 - RCL 15 * RCL 
18 * RCL 13 * ST- 19 ,166666 ST* 19 1000 ST/ 19 FIX 
O "V="" ARCL 19 AVIEW RCL 02 RCL 03 * 2 / 1 - CHS RCL 
15 * RCL 16 * RCL 09 X<>Y FIX 2 / "'Rm=" ARCL X AVIEW 
STOP 
END 





Fig. 1 
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HP71 


O. Pilloud Mise en parallèle de résistances 22 
J. Belin Incrustation vidéo 24 
Programme "PM" 28 
Le coin des Lhex 29 
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MISE EN PARALLELE DE 
RESISTANCES ET DE 
REACTANCES 


La fonction décrite ci-aprés permet le calcul de 2 
éléments en parallèle. 


La première version écrite l'était pour deux 
résistances ou self (ou condensateurs en série). La 
formule utilisée est : 


1/R = (1/R1) + (1/R2) 


Cette partie est implémentée par la routine PARRR 
ci-dessous; 


Par la suite j'ai également écrit la routine pour traiter 
des valeurs complexes, il s’agit de la routine CMPLXx. 
Cette routine est appelée si le HP-71 détecte que l’un 
des 2 arguments est complexe. 


En effet, dans un environnement, tel le HP-71 avec la 
mathrom, ou la plupart des opérations peuvent être 
effectuées aussi bien en réel qu’en complexe, il est 
intéressant d'étendre cette possibilité aux nouvelles 
fonctions. 


La formule est la même que ci-dessus, avec en plus la 
formule suivante pour linversion d’un nombre 
complexe : 


1/(a+jb) = a/(a2 + b2) -jb/(a2 + b2) 


Le listing est reproduit ci-aprés; il est bien évident 
que ce listing est un extrait de celui d’un lex plus long 
comportant d’autres mots et fonctions; ces derniers 
ayant tous été décrits par le passé dans le PPC 
Lausanne (dec87). (NDLR: En effet, ce Lex nous étant 
parvenu sous forme d'une partie de listing "objet", ne comprenant 
ni pseudo-op LEX, ni numéro d'ID, nous l’avons représenté dans 
le format habituel à nos colonnes. D'autre part, ne connaissant pas 
lID attribué au club de Lausanne, nous lui avons attribué le 
numéro SE, les lecteurs suisses corrigeront. Nous n'avons pas 
changé le TOKEN.) 


Il est possible et même probable que la même 
fonction puisse être écrite en moins d’instructions, et 
je serais heureux de prendre connaissances de 
remarques en vue de l'amélioration du programme, 
n'étant moi-même pas particulierement versé dans la 
programmation en langage machine du HP-71. 
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I est malheureusement indispensable de posséder le 
math pac (mathrom) pour la reconnaissance des 
variables complexes, et donc l’utilisation de cette 
fonction. Je me permet d’ailleurs de signaler que cette 
ROM est trés utile, sinon indispensable a tout 
possesseur de HP-71 étudiant ou travaillant dans une 
profession scientifique. 


Note : tous les calculs sont effectués sur 15 chiffres, 
selon les conventions internes du HP-71. 


Olivier Pilloud 


LEX !PARRLEX"' 


ID #5E 
MSG 0 

POLL 0 
ENTRY  PARRR 
CHAR _#F 

KEY !PARR' 
TOKEN 23 
ENDTXT 


* 


* Cross ref 
* 


AD2-15 EQU #0C363 

BSERR  EQU #0939A 

DV2-15 EQU #OC4AC 

EXAB1 EQU #OD3E7 AB <-> scr1 
EXAB2  EQU #OD40E AB <-> scr2 
EXPR EQU #0F23C go on 

F1/X15 EQU #0C33E 

MEMCHK  EQU #012C7 

MP2-15 EQU #0C43A 

MPOP2N EQU #0BD54 Pop 2 nbs 
OUTRES  EQU #0BC84 Num functs exit 
RCCD1 EQU #0D3F5 

RCCD2  EQU #0D41C CD <- scratch 2 
RCLW1 EQU #0E981 

RCLW2  EQU #OE9BE 

RCLW3  EQU #OE9C4 

RCSCR EQU #0E954 pull 

SPLITA EQU #OC6BF Split nb in A 
SPLTAC EQU #OC934 Split A and C 
SQR15  EQU #0C534 

STSCR EQU  #0E92C push 

STAB1 EQU #0D3D9 

STAB2  EQU #0D400 

STCD2 EQU #0D427 CD -> scratch 2 
XYEX EQU #0C697 AB <-> CD 
URES12 EQU #0C994  15->12 


* 
* 


* PARR function 
* 


NIBHEX 8822 Min & max 2 numeric args 


PARRR 


* 


pret 

* 

INV 
push 
stab1 
rccdi 
ad2-15 
dv2-15 
pull 
xyex 
exab2 
* 


push15 


* 


* CMPLX 


* 


CMPLX 
* 


GOSBVL 
GOC 


GOSBVL 
GOSBVL 
GOSUB 
GOSUB 
GOSUB 
GOSBVL 
GOSUB 
GOSUB 


GOVLNG 


GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 
GOVLNG 


GOSBVL 
GOTO 


- Complex PARR 


R1=C 


CDOEX 
CSLC 
CSLC 
CSLC 
CSLC 
CSLC 
R&=C 


GOSUB 
A=R1 
GOSUB 
A=RO 
GOSUB 
A=R2 
GOSUB 


GOSBVL 
GOSUB 
GOSUB 
GOSBVL 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSBVL 
GOSUB 


MPOP2N 
CMPLX 


SPLTAC 
STCD2 
INV 
exabè 
INV 
RCCD2 
ad2-15 
INV 


OUTRES 


F1/X15 
STSCR 
STAB1 
RCCD1 
AD2-15 
DV2-15 
RCSCR 
XYEX 
EXAB2 


SPLITA 
push 


LEZ 


push15 


push15 


push15 


push15 


RCLW3 
AXA 
stab1 
RCLW1 
AXA 
rccdi 
ad2-15 
stabi 


RCLW3 
dve2-15 


Complex PARR 


Do 12->15 on À & C 
CD => scratch2 


Exch AB with scratch2 


Recall first arg 


Add 


Done 


Common gates 


12->15 
push AB 


temp save Rel 


Save DO 


push Re2 
recall Rel 
push Re1 
get Im2 
push Im2 
get Im 
push Imi 


get Rel 


Re1”2 is scrtch1 # 
get Imi 


cexit 
recall Re1”*2 


save sum 


get Rel 


GOSBVL 
GOSUB 
GOSUB 
A=-A-1 
GOSUB 
GOSUB 
GOSUB 


GOSBVL 
GOSUB 
GOSUB 
GOSBVL 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSBVL 
A=-A-1 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSBVL 
GOSUB 


GOSUB 
GOSUB 
GOSBVL 
GOSBVL 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSBVL 
GOSUB 
A=-A-1 
GOSUB 


P= 
GOSBVL 
RO=C 
GOSUB 
GOSUB 
GOSBVL 
R1=C 


STAB2 
pull 
xyex 

5 
rccdi 
dv2-15 
stab1 


RCLW3 
AXA 
push 
RCLW2 
AXA 
pull 
ad2-15 
push 


RCLW2 
S 
dv2-15 
rccdi 
adè-15 
stab1 
pull 
xyex 
pull 
pull 
pull 
xyex 
dve-15 
RCCD2 
ad2-15 


push 
AXA 
EXAB1 
STAB2 
AXA 
rccdi 
ad2-15 
stab1 
pull 
xyex 
dv2-15 
push 
EXAB2 
rccdi 
S 
dv2-15 


0 
URES12 


pull 
Xyex 
URES12 


Rel/sum in scrtch2 
pop Im 


CHS 


Iml/sum in scrtch1 
get Re2 


Re2”"2 in top stk 
get Im2 


pull Re2”2 
push sum 


get Im2 
CHS 


get 1/Im1 


save Im 
pull D2 
temp save sum in AB 
drop Im2 
drop Re 
drop Re2 


get 1/Rel 


Push Re 
do Re”2 
AB <-> scrtch1 
save Im 


pull Re 


get Im save Re 
get sum 
CHS 


15->12 


15->12 
save Imi2 
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C=R4 Restore DO 
CSRC W 
CSRC W 
CSRC  W 
CSRC W 
CSRC 
CDOEX 
* 
CD1EX Chk if enough stack 
D=C A space available 
A=C A 
C=0 A 
P= 0 
LCHEX 12 
GOSBVL MEMCHK 
CDEX A 
D1=C 
GONC noprob 
C=D A 
GOVLNG BSERR 
noprob A=R1 
DATI=A M put Im12 
D1=D1- 16 
A=RO 
DATI=A VW put re12 
D1=01- 2 
LCHEX 0E 
DATI=C B put header 


GOVLNG EXPR all done (ouf) 


AXA C=B W square 
CDEX W 
C=A W 
GOVLNG MP2-15 
END 
INCRUSTATION VIDEO 
SUR HP-71 


Certaines fonctions ou Lex permettent créer des 
graphiques sur affichage du HP-71. Mais si certaines 
permettent d’agir sur un seul point, alors que d’autres 
peuvent agir sur la totalité de Paffichage, il devient 
très laborieux (et très lent!) d’incruster point par point 
une image dans laffichage. Ceci serait pourtant 
interressant, si on voulait, par exemple dans un jeu 
d’action, placer des petits personnages devant un 
décor. 
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J'ai donc créé une fonction permettant cette 
incrustation (ou plutôt superposition) en espérant que 
vous lui trouverez bon usage. 


La syntaxe est la suivante : 
GINS chainel t,position t,chaine2 1] 


Les chaines alpha sont du même type que celles 
necessaires pour l’ordre GD1SP. 


chainel est la chaine à incruster (par exemple les 
personnages cités plus haut). 


position est le numéro de la colonne ou incruster 
chainel. I doit être compris entre 0 et sk Si il n’est 
pas spécifié, il est égal à zéro. 


chaine2 est l’autre chaine à incruster (par exemple le 
décor). par défaut, c’est l'affichage courant. 


Par exemple : 
GINS GDISP$ [1,24], 12 


incruste les quatre premiers caracteres de la ligne de 
commande (laffichage courant lors du lancement de 
la fonction) à partir de la 12°ME€ colonne. 


Il est à noter que les couples de chaines suivantes sont 
équivalents : 


GINS A$,32 
GINS A$,32,GDISPS 


ou 


GINS A$,0,B$ 
GINS B$,0,A$ 


Pour accompagner ce lex, je vous propose aussi un 
petit programme qui, je lespère, vous donnera 
quelques idées. 


Bon, maintenant, qui sera le premier à nous sortir un 
SPACE INVADERS sur HP-71 ? 


Jacques Belin (123) 


LEX !GINSLEX’ 

ID #E1 
token EQU 123 
IDBUF  EQU #E10 


MSG 0 
POLL O0 


ENTRY GINSe 
CHAR  #D 
KEY !GINS'’ 
TOKEN token 
ENDTXT 
tCOMMA EQU #F1 
BitsOK EQU 1 
ANNAD1 EQU #2E 100 
ANNAD3 EQU #2E34C 
CPYDD- EQU #1C43F 
CPY-DD EQU #1C4C0 
CPY-D1 EQU #1C4C2 
DD1ST EQU #2E300 
DD1END EQU #2E34C 
DD2ST EQU #2E200 
DD2END EQU #2E260 
DD3ST EQU #2E104 
DD3END EQU #2E160 
EXPEX- EQU #0F178 
FIXDC EQU #05493 
FLTDH EQU #1B223 
FORSTK EQU #2F59E 
I/OALL EQU #11970 
MFERR* EQU #093F1 
MOVEU3 EQU #1B177 
NEEDSC EQU #2F94A 
NUMCK EQU #0369D 
NXTSTM EQU #08A48 
POPIN EQU #0BD1C 
POP1S EQU #0BD38 
RCLSTA EQU #01BA0 
RESPTR EQU #03172 
SNAPBF EQU #2F7F0 
STOSTA EQU #01BAB 
STRGCK EQU #036BA 
STRNGP EQU #03790 
GINSd GOVLNG FIXDC 
*Syntaxe : 
GINSp GOSBVL STRGCK 
LC(2)  tCOMMA 
2A#C B 
GOYES resptr 
GOSBVL NUMCK 
LC(2) tCOMMA 
?A=C B 
GOYES strngp 
resptr GOVLNG RESPTR 
strngp GOVLNG STRNGP 


* Registres utilisés 


* 


* 


* 


| Attention: points d'entrées 
| non suportés 


GINS AS [,N [,B$]] 


Une chaine obligatoire 


Un nombre optionnel 


| Une autre chaine 
| optionnelle 


: RO: pointeur Math Stack 
R1: Longueur chaine Alpha 
R2: N=position chaine A$ 
R3: Addresse buffer 


REL(5) GINSd 
REL(5) GINSp 


GINSe P= 
AD1EX 
RO=A 
ADOEX 
R1=A 
LCHEX 
B=C 
LC(3) 
p= 
GOSBVL 
GOC 
P= 
GOVLNG 

s1 AD1EX 
DO=(5) 
DATO=A 
A=RO 
D1=A 
A=R1 
DO=A 
GOSBVL 
D0=(5) 
C=DATO 
R3=C 
c=0 
R2=C 
LCHEX 
?A=C 
GOYES 


* on est dans 
GOSBVL 
A=0 
GOSBVL 
A=A+A 
R2=A 
D1=D1+ 
AD1EX 
RO=A 
C=R3 
D1=C 
GOSUB 
A=RO 
D1=A 
GOSBVL 
R1=A 
AD1EX 
RO=A 
GOTO 


0 | 
| Sauvegarde de DO et D1 
00110 | 
A 
IDBUF | 
0 | Création du buffer 
I/OALL | 
si | 
2 | 
MFERR* | 
| Stockage addresse buffer 
SNAPBF | dans SNAPBF 
A 
| 
| Recupération DO et D1 
| pour analyse 
EXPEX- Analyse des parametres 
SNAPBF | 
A | stockage addresse buffer 
| 
A | Initialisation de N à 0 
| 
OF | Le dernier parametre 
B | est il une chaine ? 
cas13 oui, on va au cas13 
le cas < GINS AS$,N > 
POPIN | 
S | on dépile N 
FLTDH | et on Le stocke sous forme 
A | Hexa apres l'avoir 
| 


multiplié par 2 

16 | on passe Le paramètre 
| numérique et on stocke 
| Le pointeur 
| stockage de l'affichage 

gdisp$ | courant dans Le buffer 


| On dépile A$ 
pop1s | 
On stocke sa longueur 
| on sauve Le pointeur... 
disp et on va plus bas ! 


* on peut être dans deux cas différents : 
* soit GINS A$ soit GINS A$,N,B$ 


cas13 GOSBVL 
R1=A 
CD1EX 
RO=C 


POP1S On dépile La chaine 
On stocke sa longueur 


| on stocke Le pointeur 
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A=A+C A 

D1=(5) FORSTK 

C=DAT1I A 

?A#C A 

GOYES cas3 

*sinon on est dans le 
C=R3 
D1=C 
GOSUB 
GOTO 


gdisp$ 

disp 

* on est dans le cas 

A=R1 

LCHEX 00108 

?A<=C A 

GOYES s2 

ACEX A 

sè R1=A 

LCHEX 00108 

C=C-A A 

A=R3 

D1=A 

A=0 P 

DATI=A 1 

D1=D1+ 1 
A 
L 
1 


cas3 


Loop 


C=C-1 
GONC 
D1=D1- 
A=RO 
DO=A 
C=R1 
A=A+C A 
RO=A 
GOSBVL MOVEU3 
A=RO 

D1=A 

GOSBVL POPIN 
A=0 S 
GOSBVL FLTDH 
A=A+A À 
R2=A 

D1=D1+ 16 
GOSBVL POP1S 
R1=A 

AD1EX 

RO=A 


00p 


* tous Les cas abouti 
* on a donc: 
* -dans Le buffer: so 


* 


so 


* 


-dans les registres 


* * 


* 


disp  A=R2 
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| ce paramètre touche t-il 
| Le fond de La math-stack ? 


non, on est dans Le cas A$,N,B$ 


cas GINS A$ 


| on sauve l'affichage courant 


et on va plus bas... 


GINS A$,N,B$ 
| 
| on force La longueur de 
| La chaine B$ à être 
| inferieure à 264 nibbles 
| (108 hexa) 


| nombre de blancs à droite 
| de La chaîne à l'affichage 
| on remplit Le buffer de 
| blancs (pour éviter d’avoir 
| des parasites à droite de 
| La chaine B$ à l'affichage) 


| 
| 
| on place La chaine B$ dans 
| Le buffer 


| on récupere Le pointeur 
| de La math stack 


| 
| 
| on dépile N et on Le stocke 
| sous forme Hexa 

| 


| on dépile A$ et on stocke 
| La longueur 


| on stocke Le pointeur 
ssent ici. 


it La chaine B$ 
it l'affichage courant 
: RO: l'’addr. de La chaine A$ 
dans la math stack 
R1: La longueur de A$ 
R2: La valeur de N en nibbles 
R3: l'adresse du buffer 


s3 


s4 


s5 


nz 


loopd 


LCHEX 
?2A<=C 
GOYES 
ACEX 
R2=A 
C=R1 
A=A+C 
LCHEX 
C=C-A 
GOC 
R2=C 
GOTO 


LCHEX 
A=A-C 
C=RO 
C=C+A 
RO=C 
C=R1 
C=C-A 
R1=C 
A=0 
R2=A 


A=RO 
D1=A 
A=R3 
C=R2 
A=A+C 
DO=A 
A=R1 
A=A-1 
GONC 
A=0 
B=A 
A=DAT1 
C=DATO 
C=CIA 
DATO=C 
DO=D0+ 
D1=D1+ 
B=B-1 
GONC 
A=R3 
D1=A 
GOSUB 
GOVLNG 


00108 | 
A | on force N à être inférieur 
s3 | à 264 nibbles 
A 
a | 
00108 | on teste si La chaîne A$ 
A | ne déborde pas de l'affichage 
sh | 
s5 | non, tout va bien 
00108 | 
A | 
| sinon on décale Le pointeur 
A | 
| 
| 
A | --et on réduit La longueur 
| de A$ 
A | R2= offset par rapport à 


| L’extremité gauche de l'ecran 


| D1 * sur La math stack 
| 
| DO * sur La position 
A | desirée de La partie droite 
| de La chaine, dans Le buffer 


A | initialisation du compteur 
nz | de boucle 
A | 
A | 
1 
1 | 
P | on effectue un "OU" entre 
1 | Le buffer et la chaine A$, 
1 | à La position N, déterminée 
1 | par Les pointeurs 
A | 
loopd | 
| 
| et enfin on affiche Le 
gdisp2 | résultat 
NXTSTM . on s’en val 


* routine de tranfert de l'affichage 


* vers un buffer (voir GDISP$ dans 


* Entrée : D1 
gdisp$ D0=(5) DD1END 


P= 
B=0 
GOSBVL 
DO=(5) 
GOSBVL 
LCHEX 


Les IDS 111) 
pointe sur le début du buffer 


0 
A 
CPYDD- 
DD2END 
CPYDD- 
4 


B=C 
D0=(5) 
GOSBVL 
RTN 


* routine de transfert d’un buffer vers 
* l'affichage. (voir GDISP dans Les IDS 111) 
* Entrée : D1 pointe sur Le début du buffer 


gdisp2 CD1EX 
D=C 
A=C 
LCHEX 
C=C+A 
D1=C 
DO=(5) 
LC(2) 
GOSBVL 
DO=(4) 
GOSBVL 
D0=(4) 
LC(2) 
GOSBVL 
GOSBVL 
ST=1 
GOSBVL 
DO=(4) 
LCHEX 
DATO=C 
RTN 


END 


P 
DD3END 
CPYDD- 


A 
A 
00108 
A 


DD3ST 
DD3END 
CPY-DD 
DD2ST 
CPY-D1 
DD1ST 
DD1END 
CPY-DD 
RCLSTA 
BitsOK 
STOSTA 
NEEDSC 
E 

P 






Vous cherchez 
geg --. De s+le” 


n'y en a 
| 


pas 
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Programme "PM" (Animation sur écran HP-71, nécessite GINSLEX, JPC Rom ou STRUC2 et REVLEX) 


10 DESTROY ALL 


20 DATA 28,62,127,127,119,34,0 
30 DATA 28,62,127,127,119,54,20 
40 DATA 28,62,127,127,127,62,28 
50 DATA 00,00,00,126,000,00, 00 
60 DATA 00,00,60,114,060,00,00 
70 DATA 00,60,98,114,122,60,00 
80 DATA 24,36,98,114,122,60,24 


90 DIM A$(6)[7] 
100 DIM B$(12)[7] 
110 RESTORE 20 
120 FOR 1=1 TO 3 
130 FOR J=1 TO 7 


140 READ N 

150 ASCI)=ASCI)ECHRECN) 
160 NEXT J 

170 NEXT I 


180 AS(4)=A$(3) à AS(5)=AS(2) 
190 FOR 1=1 TO 4 
200 FOR J=1 TO 7 


210 READ N 

220 B$(1)=BS(I)&CHRSC(N) 
230 NEXT J 

240 NEXT I 


250 B$(5)=B$(3) à B$(6)=B$(2) à B$(7)=B$(1) 

260 FOR 1=2 TO 6 à B$(1+6)=REVS(B$(1)) à NEXT I 
270 DIM D$(132] à D$=" " 

280 ES=CHR$S(92)&CHR$(95 8/1 

290 FOR I=1 TO 7 

300 D$=D$S8ES$ 


310 NEXT I 

320 DISP D$ à D$=GDISP$ 

330 LOOP 

340 FOR 1=1 TO 130 

350 IF KEYDOWN THEN LEAVE 

360 GINS ASCMODCI,5)+1),1,D$ 

370 GINS B$(MOD(1,12)+1),MOD(1/2+70, 132) 
380  NEXT I 

390 FOR 1=131 TO O STEP -3 

400 IF KEYDOWN THEN LEAVE 

410 GINS REVSCAS(MOD(I,5)+1)),1,0$ 
420 GINS BS(MODCINT(1/3),12)+1),3 
430  NEXT I 


440 END LOOP 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 


écrivez !"), les nouvelles fonctions, ainsi que les Lex utilisés dans les programmes Basic de ce 
mois-ci. 


CHARLEX 

PARRLEX  PARR XFN 094023 

GINSLEX  GINS XWORD 225123 

REVLEX REV$ XFN 082012 

STRUC2 END XWORD 225066 WHILE XWORD 225067 
REPEAT XWORD 225068 UNTIL XWORD 225069 
LEAVE XWORD 225070 LOOP XWORD 225096 
SELECT XWORD 225097 CASE XWORD 225098 
IF XWORD 225099 ELSE XWORD 225100 


10 CALL MLEX à SUB MLEX @ SFLAG -1 Q PURGE AH à INPUT "Nb. d'octets: !';N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$("AH")) @ B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS8&CS à A=A+37 @ N=N*2+37 Q Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTH$(A),C$ à A=A+16-5*FLAG(5,0) @ NEXT X à Q=4 


60 DISP DTHSCX)[31; à INPUT ": ",P$[1,MOD(N, 16)1;C$ à GOSUB 90 
70 POKE DTH$(A),C$ @ POKE DTH$(B),A$ @ CFLAG -1 @ END 

80 DISP DTH$CX)[31; à INPUT ": ",P$;C$ 

90 DISP DTH$(X) [3]; à INPUT " sm ","---1:D$ 


100 M=S à FOR Z=1 TO LEN(C$) à M=NUM(CS[Z])+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096)) [31 THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$="M------------- " à RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00C: 
000: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
01D: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
O2C: 
020: 
02€: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054C714000 
0c3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1428080008080A2C 
180008040€340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
4440007901112070 
050D750509700000 
0070000000384540 
4020014E322E3140 
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624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D3B 
048 
35B 
668 
978 
c8B 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
B62 
E76 
186 
4D2 
TES 
AF5 
E18 
156 
4B6 
800 
B43 
E97 


036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
04B: 
06C: 
04D: 
O4E: 
O4F: 
050: 


PARRLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
O0E : 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 


084E 794142400000 
00000000002€4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300C74 
5655545000054c71 
40000 


0123456789ABCDEF 


05142525C4548502 
802E000000000000 
87200E5717100000 
F710000000000000 
081000F705142525 
711FF88228F45DB0 
4C78F439C08F724D 
07E10725076108FC 
1400772077008D48 
CBO8DE33C08DC29E 
08D903D08D5F3D08 
D363C08DCA4CO8D4 
59E08D796C08DE04 
DO8FFB6CO6OCF 109 
1368128128128128 
1210cC790F11172DF 
11078CF11274CF8F 
4C9E07F61748F8F1 
89E070617C7F7F7F 
7D6F8F4C9E0777F8 
F004D0737F767FBC 
C735F7D5F744F8F4 
C9E070217E2F8FEB 
9E07111724F703F7 
71F8FEB9EOBCC752 
F731F761F740F7C1 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6Aî 
A0 
D79 
0D5 
436 
780 
ADD 
E21 
189 
4EO 
5D9 


314 octets 


sm 


357 
686 
901 
CFF 
04D 
3F3 
7A1 
B1B 
E8A 
258 
60E 
9c8 
D75 
131 
47F 
816 
BCO 
F71 
326 
6F3 
AA7 
E6C 
230 
5B2 
989 
D30 


O1A: 
018: 
01C: 
010: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 


GINSLEX 


000: 
001: 
002: 
003: 
004 : 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
OCE: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 


F7F1F741F701F7C0 
F7FOF7DFE8FC14D0 
7BEE72DE7CBO8F7E 
3D08F004D07AA076 
CE79CE77BE7FCE72 
DE7OCE7O0AE8FE04D 
073AEBCC7AAE208F 
499C010871AE74AE 
8r499C010911C816 
8168168168161361 
37D7DAD22031218F 
7C210DF1355B0DB8 
DA939011115171CF 
11015171C131E014 
D8DC32FO0AF9AFFAF 
68DA34C0F 


0123456789ABCDEF 


7494E435C4548502 
802E000000000000 
2F2001EB78700000 
F710000000000000 
035000077494E435 
B71FF80394508FAB 
630311F966218FD9 
630311F962908D27 
1308009730BCFFFD 
CFFF201331001330 
78F7A51034022000 
532EEE208FD79114 
B0228D1F39013310 
1110133203400000 
1357EA170021FEF3 
E215B01003410080 
DAF4F4F41590CECE 
5FE1101590AF01FU 
01E215931FC43E21 
5931FF86008FE0C1 
07FB1762005F4943 
535F4E4024472146 
52594C412D0A0FF0 
71358FE0C1070208 
BCBDBEFDDCFCF8F8 
F8FOF0767C3C1600 
71081113480100CA 
10211913572A0340 
E000108111130112 
13134801008F 7718 
111311AC21341181 
35152715770E7E15 
0717F16F15271577 
0E7E 150711213173 
703400800CE5DF11 
3A6CA6C103310296 
66832EEE8F14A118 


0E4 
4CD 
8B8 
C4B 
03E 
41E 
7F4 
B95 
FA 
271 
608 
9AD 
D32 
085 
487 
6A3 


375. octets 


sm 


378 
6A7 
A19 
D47 
083 
478 
802 
B75 
F47 
2BD 
62F 
92 
D3F 
062 
408 
75B 
B30 
ECC 
284F 
5F2 
970 
CDE 
072 
3EA 
822 
BCO 
F17 
25F 
SA2 
906 
c57 
FC9 
33E 
69F 
AE 
D9E 
144 


025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02C: 
02D: 
02€: 
02F: 
030: 
031: 


REVLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 


STRUC2 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
O0E : 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 


F17510068D84A801 
BC43E220D18FF34C 
11B062E28FF34C13 
04A851B061E28FF3 
4cC101137D7DA3480 
100C213518401E23 
1068F0C4C11A002E 
8F2C4C11A003E31C 
48FO0C4C18F0AB108 
518FBAB101AA49F3 
0E1540018F2C6004 
8F013400002CE5DF 
01F 


0123456789ABCDEF 


255465C454850202 
802E000000000000 
6400025C0C000000 
F710000000000000 
071000F725546542 
CO1FF4118FE83B18 
DC32FOF 


0123456789ABCDEF 


3545255534230202 
802E000000000000 
FOC001E246448B00 
FB30087000000000 
072600D230F6600D 
61019600D520A960 
0D90069500D554E4 
44249C4541465546 
4B25540554144544 
955E44594C454975 
8494C454341FF303 
0014040202020202 
CC230BF354727573 
64757275602D4963 
7D6164713686CFF0 
38DE6A208DA2C207 
SFFFE1E34420FE1E 
06820FE1E16710FE 
1E36410006351185 
012165002218580C 
0208D82D20185011 
371FAA8F2AC21554 
135719FFE1E460DF 
007E408FB394031A 
8966A18F8EC20AA6 
BB6BB679AF6B1072 
207430313F966D08 
F8EC2070208FEA23 


4c0 
878 
coD 
FA7 
32A 
68B 
A14 
DBO 
157 
50A 
877 
co6 
c80 


33 octets 


sm 


35C 
68B 
902 
DO0 
056 
405 
5B4 


1541 octets 


sm 


342 
671 
9EE 
D38 
0A6 
408 
784 
AEA 
E44 
1cB 
54E 
871 
BFF 
FéC 
306 
GAE 
A7E 
E19 
16A 
4B6 
814 
BBC 
F85 
30A 
éc1 
A7E 
DEC 
196 


01C: 
01D: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
024: 
028: 
O2C: 
02D: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
034: 
038: 
03C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
048: 
04C: 
04D: 
O4E: 
O4F: 
050: 
051: 
052: 
053: 
054: 
055: 


044B8D271308F9DF 
30870935CE8F9DF3 
0870A230187340E6 
8161371FAA8F2153 
494811135942008D 
53E201554135018F 
D96307B9F7BCE4F9 
000068401818FB39 
40310F9628131049 
62F03112962606F1 
0626F1371F088F21 
57413594E40018D5 
3030800745014B7B 
D4474D61708F6242 
0510220300339464 
23653037C4F4F405 
2765203B3554C454 
34452B6110397584 
94C45429749014B8 
D303507D80390245 
8454E4296FDF7D54 
5213754C43554276 
8cF153331A896631 
8F0E 160754017252 
27240313F966C137 
0245F40227722017 
114B7F108FCE2503 
1C221770017166AF 
8D324508D229506F 
EFF83EFF 18770351 
678F871F030998A1 
331E0962828F83DB 
07c1518178F2137C 
2144164140AC25C0 
7DF4AC2B461B098F 
2154477C47015267 
D1578C4165312414 
A962F016114A7D43 
5606D9031A8966A3 
1F088F2161156415 
541607AA41361B08 
8F2156413480DF77 
605444B5778414A3 
13F962E0227B4058 
24F3267F30551161 
7F54237F205C0432 
1617C4414A311F96 
6c016114A6D6F673 
F7BF365B280CF201 
361B698F21441B09 
8F21524A4C413109 
8F45DB0044B11298 
00F1298F534D0042 
065B08D5 1DB0AC78 
F83DB0137C213518 
678F2146841840AC 
08AA218A8868A601 
8505418A8C25C38B 


53A 
8E9 
C50 
FDC 
33B 
6Aî 
A73 
DDB 
134 
490 
81C 
B8D 
EFF 
284 
5BE 
93B 
CA7 
007 
382 
6EB 
A9E 
E00 
183 
LEE 
85D 
BBO 
F46 
2B9 
63D 
9FA 
D8A 
120 
4A9 
812 
BD3 
F34 
29F 
627 
9AB 
D18 
08A 
412 
783 
B01 
E6B 
1E6 
560 
8ED 
c98 
018 
38E 
71A 
AA& 
E4C 
1DF 
564 
8F0 
c82 


056: 
057: 
058: 
059: 
05A: 
05B: 
05C: 
052: 
0SE: 
05F: 
060: 
061: 
062: 
063: 
064: 
065: 
066: 
067: 
068: 
069: 
06: 
068: 
06C: 
060: 
O6E : 
06F: 
070: 
071: 
072: 
073: 
074: 
075: 
076: 
077: 
078: 
079: 
O7A: 
078: 
07C: 
070: 
07E: 
07F: 
080: 
081: 
082: 
083: 
084: 
085: 
086: 
087: 
088: 
089: 
08A: 
088: 
08C: 
080: 
O8E : 
08F : 


670851D618414213 
08F7C1B120AC0482 
860013028160E4E6 
B20871B813018160E 
4E681014A14F9E29 
E3048160E4EACB0E 
4694C201B698F214 
61340163DFF47BFF 
18776232873336D8 
1EFCFFOFAFF70D28 
FE3F804033098169 
4752DB13416314A8 
F3E3203471006010 
449000066210C0C8 
0C020487309A0880 
D07A6276C26021D2 
CFFC9AFF14A7EFO4 
D030090272501313 
479E17F915E07032 
7CB16FD08D84A803 
10677c175A168C05 
DBFFD3AFF7212776 
15E078F174816BCF 
207A4264A051CFF0 
1AFF78616FAF89BF 
FOOAFF1361B698F2 
144314473611B698 
F21461347C014E07 
D9179216C406C6F7 
CBFFAEAFF7BEO4DE 
257AD164305ABFF6 
1BFF2376C1602020 
33301E8DA93908D5 
045078411877E811 
36134D787DD13210 
88F1C8111378B70C 
C28B39B86F7786D2 
71F087F22030214B 
0EO6A0C4951FD55F 
214713517E143F43 
4412E08A68313610 
A1341FC65F2143E6 
E68BAC18F95EF011 
A1348FB7EF011213 
08D7E4708F871F08 
FD8DB004AC05D097 
c00110AC097C0001 
3098161851328F31 
F808161341650110 
88FE3F8043430981 
694783DB134AF015 
A51657630118AE5A 
F2AE9BF2BF2BF2BF 
233FE1E9720061AE 
18198F2146134011 
3618198F21441340 
11371F1C6F214513 
5011F1C6F21471E9 
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FDF 
36F 
éDé 
A45 
DD7 
18B 
50E 
8BF 
c2D 
029 
3B0 
728 
A81 
DDF 
158 
4EO 
8D4 
c30 
FB7 
368 
6E5 
ABB 
E61 
1F1 
5D1 
980 
CEO 
056 
3F0 
80F 
BBA 
F39 
2CB 
62E 
9A8 
D38 
OEE 
468 
817 
B80 
EES 
27E 
641 
904 
D73 
12C 
499 
7FA 
B4D 
ED9 
269 
5F1 
9EE 
D86 
0E8 
44F 
7C2 
B4C 








090: 
091: 
092: 
093: 
094 : 
095: 
096: 
097: 
098: 
099: 
094: 
098: 
09C: 
090: 
0SE: 
09F: 
0A0: 


95F1458D681F0D01 
4A136C213401614E 
80CF208F53410800 
F80C0201F088F215 
501F765F214787D3 
1321088F1C811137 
C2D731FE8F99A805 
CA795F16114A311E 
962606DA016114A3 
124962023F340644 
16365426462F8F89 
0B14F78F3E32034F 
5006850441503664 
016B30001F088F21 
5708F62420850811 
760E01D01D60F707 
F05D0A8058008028 
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EEO 
24D 
5D7 
95F 
CE7 
04D 
40A 
7A1 
B14 
E6C 
1EE 
58A 
8D3 
C3F 
F9E 
324 
69B 


OA1: 
OA2: 
0A3: 
OA&: 
0A5: 
0A6: 
OA7: 
0A8: 
0A9: 
OAA: 
0AB: 
OAC: 
OAD: 
OAE: 
OAF: 
0B0: 
081: 


6D002767000C0C80 
CF2070211F088F21 
554798E1817FCE63 
OF7A7E16514A7D1D 
51160D031547FD04 
716BFC314670D048 
02261906CA031267 
BB043F215C70C0C8 
OCF20AC714A33462 
6238F890B15C3312 
4966911611520301 
90242302902C1ACB 
8126F0F31267F504 
702150275DD18178 
1E6F4E3146704048 
EOCOC80CF2071BD1 
6514A745C4028129 


A09 
D8E 
131 
4DD 
850 
BDE 
F3F 
2E0 
G6E 
9EC 
D33 
OAE 
420 
7A5 
B25 
ED2 
240 


0B2: 
0B3: 
0B&: 
0B5: 
086: 
087: 
0B8: 
089: 
OBA: 
0BB: 
0BC: 
0BD: 
OBE: 
OBF: 
0CO0: 
0c1: 
OC2: 


0681789D18172504 
0077DD6B0E632C14 
A96200011F495F21 
43E41418F1568188 
E911F088F2157013 
11C01550018DD449 
01FF85F214717414 
38A200cc14113115 
701F088F21550011 
E064600000FB3000 
00000000D1091BFF 
D8204C7FFD00030A 
FFD61035BFF9B005 
6BFFD73414355426 
754C435544639464 
367C4F4F40506B35 
54C4543445161FF 


op 
C 


SA7 
93D 
CB2 
035 
3B4 
726 
AA5 
EOA 
16D 
4CD 
83A 
BDA 
F97 
32B 
697 
A27 
D73 
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ENGLISH SUMMARY 
JPC 63 - APRIL 89 


During the Consumer Electronic Show, in Chicago, in USA, the June 3 1989, a 
meeting will be made for the tenth birthday of the HP-41, the 75 years of Hewlett 
Packard, and the 13 years of Chips. Unfortunately, nobody, from Paris, can go to 
this fest. Too bad!, everybody thinks that if HP wants to do revelations, it’s will 
be this day ! Perhaps an American reader... 


This issue of JPC begins with a letter of C. Dupré, who made sun-dials and wants 
to know if somebody have programmed his HP-41 for this kind of job. He 
searchs also MLE1IH Eproms for a MLDL. 


The HP-28 section opens with a review of the book written by S. Lalande and P. 
Courbis (two members of PPC-Paris) "Journey in the center of the HP-28C/S". 
This book shows us the internal running of this machine, with some programs, 
etc. After that, P. Heïlbronn give us a fifth version of his program of constant 
factors. Next, J. F. Garnier brings some news functions date and time for the 
HP-28. Finally, comming from Sweeden by the Unix Network, and written by O. 
Gallmo, an impressive Lisp compiler, for 28S only (it’s too big!). 


One program for HP-41 this month, but very pro ! It is.a program of civil 
ingineering, for the determination of constraints in a foundation subject of 
excentrics loads. 


Two Lex in the HP-71 section. the first computes the values of parallels resistors 
with complex variables, but it needs the MathRom. The second Lex works with 
the display, for inlay a picture into another. You can see a little demo of the 
possibilities of this function, whith the program "PM", at the end of the section. 


Until next month and Happy Programming ! 


SAS 
en 
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